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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
It ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH rue 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeepokat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: RMS32 


Abstract: 
This routine is called by RMIPUT to handle the 
blocking of records required when doing $PUTS to 
a block device. 
Environment: 
Star processor running Starlet exec. 
Author: L. F. Laverdure Creation Date: 25-MAR-1977 
Modified By: 
v03-009 JwT0190 Jim Teague 31-Jul-1984 


a 
Undo JEJ0049 temporarily until some unexpected side 
effects can be better understood. 


v03-008 JEJ0049 JE Johnson 23-Jul-1984 
Alter the BLDREC logic to force the current buffer to be 
flushed when it is exactly filled, rather than waiting 
for the next operation to force it out. 


v03-007 DASO002 David Solomon 28-Jun-1984 
Don’t get the RSZ from the user's RAB after we've stalled. It 
may change. 


v03-006 DASO001 David Solomon 08-Feb-1984 
ae | out code to improve performance for sequential VAR case. 
Some formatting cleanup. 


NOU EWR 0 OD NAME WIR 0 OD NOAU EWN $$ O OD NOAU EWN @ OOO NAUN EW OOONO UW Ewin 


Be Se Se Se Se Se Be Ge Se Ge Se Se BeBe Ge Ge Se Ge Ge Se Ge Fe Ge Ge Ge Se Ge Se Se Se 
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0 3 
25 ; v03-005 TSK0052 Tamar Krichevsky 22-Jun-1983 
¢ : Fix broken branch to RMSSEQJNL. 
6¢ : v03-004 TSk0051 Tamar kricheysky 30-May-1983 
§ o7 ; Add support for journaling of $PUT operations. 
00 65 ; v03-003 $HZ0001 Stephen H. Zalewski 17-Dec-1982 
00 08 3 Fix assume statement to reflect change in ifb. Change 
B86 ° ; way eof is updated from MOVC to MOVL. 
448 63 ; v03-002 KBT0144 Keith B. Thompson 20-Aug-1982 
i444 oy : Reorganize psects 
0000 i ; v03-001 RASO0090 Ron Schaefer 8-Jun-1982 
0000 3 3 Fix potential bugcheck caused by having the NRP_OFF 
44 ge : be odd-aligned for VAR and VFC files. 
0000 7%: v02-024 ¢Ds0001 C Saether 3-Nov-1981 
4 44 3 Fix broken branch. 
0000 79: v02-023 RAS0028 Ron Schaefer 20-Aug-1981 
8008 9 ; Change FABSC_STM11 to FABSC_STM. 
0000 Be : v02-022 RAS0027 Ron Schaefer 20-Aug-1981 
i444 o7 ; Do not pad UDF files to magtape. 
0000 «85: v02-021 RAS0025 Ron Schaefer 18-Aug-1981 
4464 6 : Add support for $PUT to UDF files. 
0000 «8B: v02-020 RASO019 Ron Schaefer 6-Aug-1981 
4444 3 : Fix block padding algorithm for magtape and stream. 
0000 «91: VO2-019 RASO016 Ron Schaefer 31-Jul-1981 
44 38 ; Add stream format support. 
0000 (94 : v02-018 REFORMAT K. E. Kinnear 31-Jul-1980 9:04 
0000 95 ; 
0000 96 ; 
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TO PERFORM SEQ. 5=-SEP-19 RMS.SRCJRM1PUTBLD.MAR; 1 (3) | 
~SBTTL RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. ORG PUT TO FILES DEVICE 
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am 
Po 
We 
Cc 


Ah 

; RMSPUT_BLK_DEV == Routine to Performa Seq. Organization Put to Files Device. 
This module performs the $put record proressing for 
the sequential file organization to a files-oriented 
(i.e., blocked) device, performing the required record 
blocking. 

Calling Sequence: 
BSBW RMSPUT_BLK_DEV 


Input Parameters: 


5 
R11 impure area addr 
R10 IFAB addr 
5 R9 IRAB addr 
5 R8 rab addr 
5 R6 record data Length in bytes 
5 R5 record address 


Implicit Inputs: 


Sequential org inf Sere 
IRB$W_ROVHDSZ: record overhead size in bytes 
IRB$SW_RTOTLSZ: total record length including 

3 overhead bytes 

First block of user buffer probed 

Record size checked for validity 


Output Parameters: 


RO status code 
Ri-R7 destroyed 


Implicit Outputs: 
RABSW_RFA 


Updates, TRAB and bdb(s) as per the put. 
Completion Codes: 

standard rms 
Side Effects: 

none 


SEQJNL_BR: 

BRW SEQJNL 
CHKBLK1_BR: 

BRW CHKBLK1 
ANSIZE_BR: 


SeSe Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
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en ryyeye SEQ. ORG. PUT TO BLOCK DEVICE 1 ~$60= 1388 90:33:15 AX/VMS Macro Vv04-00 Page 
V04- RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. -SEP-1984 16:23: RMS.SRCIRMIPUTBLD.MAR; 1 
OOF6 31 ! 13% BRW ANSIZE 
1 136 RMSPUT_BLK_DEV:: 
1 19 $STSTPT PUTBLD 
ee 
018 0 : For non-ma tape devices, fix potential odd-aligned NRP_OFF values, 
018 3 for VAR and VFC files. 
BB Bie 
05 €0 0018 7 BBS #DEV$V_SQD,- ; don't worry if tape 
13 6A a1? 82 IFBSL_PRIM DEV(R10),6$ 
50 AA 91 1F § CMPB IFBSB-RFMORG(R10),- 3; VAR format? 
02 4 g 0 #F ABST_VAR 
06 13 00 08 BEQL 5$ i yes 
50 o3 91 3 3 % CMPB 4 t+ Piety eal 3 or VFC? 
07 12 0029 11 BNEQ 6$ 1 3 not VFC or VAR 
44 Ad B6 028 \§ 5$: INCW IRBSW_NRP_OFF (RI) 3; round offset 
44049 01 AA 00 1 BICW2 #1, I1RBSW_RRP_OFF(R9) 
o085 | 518; 
003 16 : The following code causes the current buffer to be set up correctly 
003 i ; dependent upon whether the corresponding block must be read or not. 
0 19 ° 
534 $03 0 6$: CLRL R3 3; indicate read required 
44 a9 BS ite 1 TSTW {ogee war OFF (Rd? ; check for non-zero offset 
0¢ 12 0037 § BNEQ 0$ ; and branch if so ; 
5 8 0039 INCL R3 ; zero offset - flag no read required 
FFC2" 30 33 8 4 208: BSBW RM$GE TBLKNRP 3 get the bloc 
3A 50 €9 OQO3E 5 BLBC RO,ZERO_RFA_BR2 ; continue if successful 
gl 
Bae y 3 > Current register contents: 
0041 0: R8-R11 same as upon entry 
0041 1; R?7 end of block addr + 1 
0041 ¢ 3 R6 data record size 
0041 ; : R5 data record addr 
0041 4; R4 bdb addr 
0041 5; R1 addr of block buffer 
0041 § 3 
boc] 538 ; 
aoe 33 : Make R1 into addr of location to build the record. 
41 26) 
51 44 A9 CO 0041 $s PUTOO: ADDL2 IRBSL_NRP_OFF(R9),R1 ; make into address 
bes Seg 
45 45 : Set rp from nrp. 
ak 
4809 40 a9 7D 7H 48 MOV $I RBS$L_NRP_VBN(R9) , IRBSL_RP_VBN(R9) 
4A 50 ; 


i 
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v04- RMSPUT -BLK_DEV = ROUTINE TO PERFORM SEQ. -SEP-1984 3233 RMS. SRCIRM 1PuT BLD.MAR;1 
4A 1; Compute # bytes left in block and check for fit 
7 ¢ : if records not allowed to cross block boundaries. 
4A +} 
ae ee G3 4A 5 SUBL3 =R1,R7,RO 3; compute # bytes rensining 
03 =€ 4 § BBS #F ABSV_BLK,- ; branch if boundary restrictions 
51 AA 5 1FB$B_RAT(R10),- 
BL 38 CHKBLR1_BR 
083 500 ; 
5 61; If journaling is enabled for this file, create and write the journal entry 
2 $¢ ; for the current record. 
05 64 * 
QOOA0 CA 95 005 65 CHKJNL: TSTB IFB$B_JNLFLG(R10) ; Any journaling enabled? 
B3 12 005 $6 BNEQ SEQJNC_BR 3 yes, journal record 
Bae 
039 $3 Build record starting at the address noted in R3. 
059 «571° 
64 AY 83 059 Le: BUILD: TSTW IRB$SW_ROVHDSZ(R9) 3 any overhead size? 
1A 13 005C 7 BEQL MOVREC : branch if none 
oose 575 ; 
005E id: : Rec format is not fixed. 
Bnee 77 ; Must write out size field if ANSI, var or vfc. 
oose | 578" 
6A 26 €0 OOS5E 80 BBS #IFBSV_ANSI_D,(R10),- =; branch if ansi 
BO 0061 81 ANSIZE_BR 
Vane 
06 4 : Store binary size field. 
065 586° 
06 87 SETSIZ: ASSUME FABSC_VFC GT FABSC_VAR 
06 HH ASSUME FABSC_STM GT FABSC_VFC 
50 aA 31 Be 34 Ac Eee pre monecate) = : stream format? 
10 +1€ p68 91 BGEQU movage” i no prefix for stream 
02 50 01 Boe 38 CMPL RO,# : roos for count? 
79 19 0068 29 BLSS.  N_BLK_BR ; nope 
66 AY oe A3 8 $0 94 SUBW3 #2, IRB$W_RTOTLSZ(R9),- ; store size of data + rhb 
1 1 295 (R1)+ 
0073 599 
g 34 : If vfc format store record header data. 
7 
50 AA 91 7 $f CHKVFC: CMPB 1FB$B_RFMORG(R10),- 3; is it vfc? 
03 7 8 #FABSCT_VFC 
13 007 BEQL VFCRH_BR 
a8 808 
7 06 + Now move the data record. 
7 3 


N 5 
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yO4-000 RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. $7 een 1382 90:38:49 RMS.SRCIRMIPUTBLD.MAR; 1 ” (3) | 
7 
0187 30 if 3 MOVREC: BSBW BLDREC 3 go move it 
78 19 ZERO_RFA_BR2: ; Branch aid 
65 50 €9 4 f BLBC RO,ZERO_RFA_BR ; get out on error 
7E 15 ; 
43 \° : Now append DFT to stream format if necessary 
7E «316 | 
fe 9 ASSUME FABSC_UDF EQ 0 | 
O7E 18 ASSUME FABSC_STM GT FABSC_VFC 
fA: 1 ASSUME <FABSC_STM+1> EQ FABSC_STMLF 
Ore 6 ASSUME <FABSC~STMLF+1> EQ FABSC_STMCR 
55 50 AA 9A 007 MOVZBL IFBSB_RFMORG(R10),R5 3; get format type 
se 13 Ogs ‘ BEQL at = : Skip to not found for UDF 
55 4 C2 0084 4 SUBL2 #FABSC_STM,RS5S 3; normalize type 
16 IF 0087 5 BLSSU 3 not stream format 
64 AI 53 089 § TSTW RBSW_ROVHDSZ(R9) ; anything to add? 
1A 1 08C BEQL 3 nope 
55 FF6D CF45 DE OO8E 8 MOVAL W*STM_FMT_DFTCR5),R5 3 point to DFT table 
56 6850S 9A (0094 9 MOVZBL (R5)+,R6 ; get length 
0168 30 0097 380 sou BLDRE : Sppend the oFT 
46 50 £9 QO9A 31 BLBC RO, ZERO_RFA_BR 3; quit on failure 
09 11 0090 3¢ BRB 20$ : rejoin main flow 
ea 
NO9F 32 t PUT operation now complete. 
poe 33 ; Calculate new value for nrp. | Z 
0O9F 38 : Round up to word boundary unless stream or magtape. F 
Be i: | 
05 €0 0OO09F 41 10$: BBS #DEV$V_SQD,- F 
05 6A OA1 4g IFBSL_PRIM_DEV(R10),20$ ; branch if magtape F 
51 D6 OOA 4 INCL R1 3 round up F 
51 01 CA OOA 44 BICL2 #1,R1 3 round up F 
54° 20 A9 DO OOAB 345 208:  MOVL IRBSL_CURBDB(R9).R4 > get current bdb F 
o age’ as C OAc 46 SUBL3 BDBSL CURBUF ADR (R4) .- ; Save offset in nrp f 
50 57 51 C3 00B2 348 SUBL3 R1,R7,RO”~ ; set r0 to # of bytes remaining in block é 
32.—~«‘z? 3 3 EQL BLK_FULL_BR ; and branch if full ' 
0 B 2} 3 I 
fe § 3 Make sure there is sufficient room in block for I 
53 ; ansi_d byte count or entire fixed Length record if I 
+3 22 : records not allowed to cross block boundaries. : 
56 * ‘ | | 
03 «£0 3 25 BBS #FABSV_BLK,- 3; branch if boundary restriction | 
51 AA A 38 IFB$B_RAT(R10),- I 
30 [= CHKBLR2_BR I 
Be | 
BD 63 : Update eof data in IFAB. I 
D 65 ; I 
D 64 I 
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RM1PUTBLD SEQ. ORG. PUT TO BLOCK DEVICE 16-SEP-1984 00: 
y04-000 RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. eset Pi 90: 
40 Ad = O00 65 PUTO1: MOVL IRBSL_NRP_VBN(R9), 
74 AA C 96 IFBSL_EBKTR10) 
44 49 80 00C 6 MOVW §IRBSWINRP_OFF(R9),- 
5C AA 0c os IFBSW-FFBTRI0) 
0c § SSB #1FBSO_RW_ATTR, (R10) 
0cB 0 
te q ; Update | t d in fil 
: ate largest record in e. 
0cB 8 3 : . 
pace 74 
64 AI A3 0cB 75 SUBW3 IRB$W_ROVHDSZ(R9) ,- 
66 AI 99 3 6 IRB$SW_RTOTLSZ(R9) ,- 
50 0D 7 RO 
52 AA 50 1 00D1 78 CMPW RO, 1FBSW_LRL(R10) 
06 1B 00D5 379 BLEQU § 108 
52 AA 50 BO 00D7 80 MOVW RO, 1FBSW_LRL(R10) 
0008 3) 
00DB ¢ $ 
00DB 83 ; Return rfa to user and exit. 
00DB8 84; 
0008 HH 
00DB 386 10$: ASSUME IRB$W_RP_OFF EQ IR 
48 A9 7D OODB 387 MOVQ  ==IRBS$L-RP-VBN(R9) ,- 
10 A8& 00D 88 RABSW RFACRB) 
FFID' 31 OOE 89 BRW RMSE XSUC 


33:13 AX/VMS Macro v04-00 
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; update ebk 
; update first free byte in block 


Page 


; flag rewrite of attr. needed 


get actual record size 


new largest? 
branch if not 
; yes = save size 


BS$L_RP_VBN+4 


; return RFA to user 


; exit with success 
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Vv04 RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. =SEP-1984 723: RMS.SRCIRMIPUTBLD.MAR; 1 (4). 
E 91; 
E 92 ; Branch aids. 
E 95; 
E 94 | 
E 95 ZERO_RFA_BR: 
0106 «31 E 38 R ZERO_RFA 
E 97 N_BLK_BR: 
14 #11 E 38 R N_BLK 
3 99 VFCRH_BR: 
3D.2=Ci«7m#Wd : 400 R VFCRH 
A 401 BLK_FULL_BR: 
00DC 31 EA 4 § BLK_FULL 
ED 4 CHKBLK2_BR: 
00c2 31 QOED 404 CHKBLK2 
OF 405 CHKJNL BR: 
FF60 31 OF re CHKJNL 
OOF3 407 PUTOO_BR: 
FF4B 4 =631—OOOF 408 BRW PuTOO 
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v04- RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. -SEP-1984 16:25: RMS.SRCIRMIPUTBLD.MAR; 1 
F 410 ; 
re re : Check for fit if records not allowed to cross block boundaries. 
fe ay8 
FO 414 CHKBLK1: 
50 66A9 861 Fe = 415 CMPW IRBSW_RTOTLSZ(R9) ,RO ; does record fit? 
F4 18 FA 218 BLEQU CHKJNC_BR ; branch if yes 
0174 3 OFC 417 N_BLK BSBW RMSPADELK1 ; pad out block if necc. 
53 01 OFF 418 MOVL #i,R : vee no read required 
FEFB' 1 g 419 BSBW RENKT ; call & return from next block routine 
EB 5S 3 1 ri BLBS “gh Orr : and continue if ok. 
OOE1 3% 0108 421 BRW fe PRoe + get out on error 
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108 423 : 
108 ? ¢ i ; Size field is ansi_d format, i.e., 4-decimal ascii bytes. 
108 456° 
50 03 0 138 4 : ANSIZE: MOVL #3,R0 ; counter for 4 digits 
52. 66 8 C 01 3 428 MOVZWL TROSW_ RTOTLSZ(R9) ,R2 ; get total record size 
5 4 Q11 4, 4 CLARL Re : zero extend 
5C 3 52 A B Q114 430 198: EDIV #10, R2,R2,A ; divide out next digit 
614 5¢ 0 81 0119 431 ADDB3 #*A/0/.AP, ¢R1) CROJ 3 convert to ascii and store 
F350 «6F4 COTTE = 4 ¢ Ey RO,10$- ; continue if more 
51 04 0 4 4 ADDL #4,R : advance past count 
FF4B 1 01246 434 BRW CHKVFC 3; and continue 


t | 
6). 


RM 
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yO4-008 RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. meets 1 00:33:43 RMS.SRCJRM1IPUTBLD.MAR; 1 ” (3). 
127 436; 
127 4 { ; Process vfc record header. 
Hak 
7E 55 127 440 VFCRH: MOVva R5,-(SP) ; save record addr & size 
56 SF AA 9A O12A 441 MOVZBL IFB$B_FSZ(R10) ,R6 ; get header Length 
62 51 AA 02 aug BBC #FABSO_PRN,IFB$B_RAT(R105,RHBADR; branch if not print file 
1 444 ASSUME IMPS$W_RMSSTATUS EQ 0 
: ret ASSUME IMP$V_IIOS EQ 0 
SF 6B CEB ! 2 Ge? BLBS (R11) ,RHBADR ; branch if image io seg. 
0136 449; 
0136 450 ; This is a process-permanent ‘print’ file. 
0136 451 ; Use the connect-set rat from isi and convert the specified 
4 ? re : carriage control to print file format and store in rhb. 
0136 4454 ° 
00000016 0136 $32 OF F=<RABSW_ISI1*8>+RABSV_PPF_RAT ; define offset to isi rat 
5B 68 18 £0 0136 457 BBS #FABSV_PRN+OFF,(R8),RHBADR; branch if ‘prn' 
24 68 #17 £0 O13A 458 BBS - #FABSVCR+OFF,(R8),1$; branch if ‘cré 
29 68 #16 €1 0136 459 BBC #FABSV-FTN¢OFF,(RBS,ZERO_RHB; branch if not ‘ftn' 
014 461 ; 
014 re ; Fortran carriage control: 
Bie ree ; interpret fortran carriage control byte in record and convert to prn format. 
0142 465° 
04 AE D5 014 466 TSTL 4(SP) ; zero Length record? 
1B «#613 «014 467 BEQL 1$ ; branch if yes (lf-rec-cr) 
04 AE D7 0147 468 DECL 4(SP) ; decr size of record 
FE Al B7 OQ14A 69 DECW -2(R1) ; decr size of record in buffer 
07 6A 26 €1 Q14D 4 BBC #IFBSV_ANSI_D,(R10),10$ ; branch if not ansi magtape 
66 AD =B7 0151 471 DECW IRB$SW_RTOTLSZ(R9) ; decrement total record size 
71 «05 0154 $76 TSTL -(R1) ; back up to length field 
B3 10 0156 47 BSBB ANSIZE 3; store adjusted record length 
50 65 90 0158 474 10$: MOVB (R5),RO ; get fortran byte 
6E 6 0158 475 INCL (SP) 3 and incr rec addr 
FEAO’ 30 0150 476 BSBW RMSMAPF IN 3 map fortran to pre/post format 
05 11 016 477 BRB 2s 
gies on 
O16 ret > LF = record - CR carriage control required. 
162 482 ° 
52 8D01 8F B60 if css 1$: MOVW #14+<<128+13>a8>,R2 3; lf-rec-cr in pre/post 
0c AB 52. BO fe 4 4 2$: MOVW R2,RABSL_STV(R8S : copy carriage ctl to stv area 
168 486; 
0168 4 5 3; No record header specified so zero it. 
Ss as 
168 490 ZERO_RHB: 
56 DD QO16B 491 SHL R6 3; save rhb size 
16D 492 ZERO_RHB1: 


SEQ. ORG. PUT TO BLOCK DEVICE 16-SEP-1984 90:33:18 ee Macro Vv04-00 Page 
RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. “SEP-1984 16:25: RMS.SRCJRMIPUTBLD.MAR; 1 
55 OC AB OD 16D 493 MOVAL RABSL_STV(RB),R5S 3; get address of 4 zero bytes 
04 $ pf 194 494 CMPL Fs s afb > 4 bytes? r 
1B 0174 495 BLEGU SETVFC : branch if not 
56 8 176 $38 MOVL #4,R ; just move 4 bytes this time 
6E § 17 497 SETVFC: SUBL2 R6,(SP) ; adjust remaining count 
go 17C rp BSBW BLOREC 3; move the zeroes 
8 E 17F = 49 BLBC RO,30$ 3; branch on error 
CAB D4 01 é 0 CLRL  RABSL_STV(RB) : re-zero stv 
56 of Dd 1 1 MOVL (SP) ,R6 3 get remaining count 
3 1 188 ¢ BNEQ ZERO_PHB1 3; and continue if not done 
f D 18A 03 30S: TSTL (SP)F 3 pop temporary count 
1 11 18C Be BRB CHKERR 
18E 5 
18E 208 $ 
18E 07 ; Handle bad record header buffer. 
pige 508 ; 
4 —E 509 
is 510 ERRRHB: RMSERR RHB 3 ghange error code 
57 11 0193 511 BRB ZERO_RFA : & get out 
0195 2l§ 
0195 513; . : 
Bie “8 ; Get address of record header buffer and process it. 
0195 516° 
55 2C A8 DO 0195 517 RHBADR: MOVL RABS$L_RHB(R8) RS ; get address 
p0)3=6©135:«€00199— «45518 BEQL RO_RH ; branch if none 
019B 519 IFNORD R6,(R5S),ERRRHB 3; probe it 
O1A1 2s? 
01A1 521; 
O1A1 5 ¢ ; Move the fixed header and reprobe user buffer. 
O1A1 523; 
O1A1 524 
SF 10 gil 525 BSBB BLDREC ; just like normal record 
55 8& 7D O1A3 258 CHKERR: MOVQ (SP)+,R5 3; restore user buffer regs 
43 50 9 Q1A6 527 BLBC RO,ZERO_RFA 3; get out on error 
FE54" 30 O1A9 528 BSBW RMSPROBEREAD > reprobe it 
3D 50 9 O1AC 529 BLBC RO,ZERO_ 
FEC6 1 O1AF 530 BRW MOVREC ; move the data record 
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VO4-008 RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. ety? 90:33:43 LRMS SRCIREIPUTBLD MAR: 1 . 
§ ; Check for fit if records not allowed to cross block boundaries. 
5 . 
§ CHKBLK2: 
SO AA 91 CMPB I1FB$B_RFMORG(R10),=- 3; fixed format? 
01 g #FABST_FIX 
13 BEQL FIXRFM ; branch if yes 
6A > ia 40 BBC #IFBSV_ANSI_D,(R10),- ; branch if not ansi 
D 41 PUTO1_BR 3; as there is at least 
tg 3; the required word left 
04 38 D1 4 CMPL RO, #4 ; ansi d requires 4 bytes min. 
18 44 BGEQ $PUTO1_BR : a.0.k. 
06 11 546 BRB BLK_FOLL 
47 


1B 
18 
18 
18 
18 
1B 
1B 
188 
188 
1BC 
1BC 
1BF 
01C1 
af 
Hf a8 ; Make sure there is room for fixed length record. 
O1C 229 
52 AA 50 B1 OIC 51 FIXRFM: CMPW RO, IFBSW_LRL(R10) 
20 «#=1E «01C7 236 BGEQU PUTO1_BR ; branch if sufficient room 
gs a 
6169 555 ; This block is full or at least the next record can't possibly 
O1C9 556 ; fit in it, so change to next block. 
01¢9 557 ; 
01¢9 558 
01¢8 559 BLK_FULL: : 
1C EO 01C9 560 BBS #DEVSV_RND,- ; branch if disk 
6A 01¢CB 561 IFBSL_PRIM_DEV(R10),- 
OF 01CC 286 B_FUL 
00A3 30 O1CD 56 BSBW RASPADBLK1 ; pad out buffer | 
53 } 0 3108 564 MOVL #1,R ; flag no read required 
FE2A" 30 01D 565 BSBW RMSNXTBLK1 ; call & return from next block routine 
10 50 gS 01D6 566 BLBS RO,PUTO1_BR 3; continue if ok 
0010 1 0109 567 BRW ZERO_RFA 3; process error 
40 AY D6 01DC 288 B_FULL: INCL IRB$C_NRP_VBN(R9) ; bump vbn 
44 A9 =B4 O1DE 69 CLRW IRBSW_NRP_OFF (R9) ; and zero offset. 
48 AG) 496 Bree 570 INCB BDOBSB_REL_VBN(R4) : increment relative vbn 
01 O1E 571 BICB2 #BDBSA_VAL,- ; make invalid 
OA A4 O1E7 276 BDB$B_FLGS(R4) 
Q1E9 573 PUTO1_BR: Ps 
FED1 31 OED 574 BR PUTO1 3; rejoin code 


eee... 


RMIPUTBLD 
vO4-000 


40 Ad 
44 A9 


D4 
B4 


8 


TTT HHH HAH HH HmMmMmmMmMMmne Oc 


ee a ss ts i 'g 
TRAHONNNNNNMNMIMNIANOAOOMAO Cs 


v 
oc 


PVPS VSVSTSTSVSTSVSVSVSVSIOSISISIOSIO = FT 
DOOOOWODOOWOWOODOOoy NN < 


FWP 0 OONOU EWN OO OONO 


ral 


= 
'o 
z2@ 


I 6 
ICE 16-SEP-1984 90:33:18 AX/VMS Macro V04-00 
O PERFORM SEQ. 5=-SEP=1984 16:23: RMS.SRCJRM1PUTBLD.MAR; 1 


: Error during put - zero rfa and exit. 


ZERO_RFA: 
CLRL RABSW_RFA(R8) 
CLRW RABSW_RFA+4 (RB) 


Restore IRBSL_NRP_VBN and IRBSL_NRP_OFF to the ebk and ffb values 
since $PUT failed and the next SPUT may succeed. 


IFBSL_EBK(R10), IRB$L_NRP_VBN(R9) 
MOVW IFBSW_FFBC(R1 t IRB$W_NRP_OF F (R9) 
IRBSW_CSIZ(R9) ; make sure there is no current 
3; record, in case anyone wants to 
; try an update 
BRW RMSEXRMS 


Page 


~~ 


RA 
vO 


RMIPUTBLD 
V04= 


EQ. 
MSPU 


"aH 


=O 
zDD 


PIPOIPOPIPOPIPNINYINPINPINONINPININ NNN NPoNoNoNonononononopnononoponoponopononofnofnonn t 


Oa 
x 


PIPDPOPIPIPIPOPDPIPYINIPININYNIPIPYPIDNYAIPINININIPIPINIPININPINIPIPIPYDIPYPIPIPIPIPIPIPIPIPIPIPINPIPUNININIMINIPY oo 


COOCOCCOCOCOOCOCOCOCOCOC OOOO OOCOCOCOOOOCOCOOCOOCOCOOOOOOoOO 


OOOCSCOCOCOCOOCOOooOoo 


CSGOOOOCOOCOOCOOOOSCOOCOCOOCOCOSOOOOOCOOCSCOOCOSO COO SCOSOOOOOCOCOOOOOCOOOOOOCOOO 


POMOPOPONSPoNoNoNoPoNnofnonofnofonyd 


ooo 
oo 


BEES EWI WII WIAA SPIPINPIPIPIPININYD 2 OO OO MH DOOOOOOOCOCOCOWOOONO < 


98S FFE EEE EEE HOOP OEE EO RAAA AAAS AAS AS SS Re ee m— 
NOU WN MOOD NAME WIN SO ODO NOUS WN 0 OONA UE WIN O OONOUE WO OONIO 


J 6 
E 16-SEP-1984 00:53: AX/VMS Macro v04-00 
PERFORM SEQ. 5-SEP-1984 00:33:43 FRMS  SRCIRMTPUTBLD OMAR; 1 
++ 

BLDREC == Build Record Routine. 


This subroutine moves a record from the user record buffer 
to the rms i/o buffer, crossing block boundaries as needed. 


Calling Sequence: 
BSBW BLDREC 
Input Parameters: 


R11 impure area address 

R10 ifab address 

ag irab address 

R8 rab address 

R?7 end of block address + 1 

R6 # of bytes in record 

R5 address of record (source) ‘ 

R1 address in rms i/o buffer (destination) 


Implicit Inputs: 


The contents of the various structures, 
in particular, IRBSL_CURBDB. 


Output Parameters: 
R1 address of byte following the moved record 
in rms i/o buffer 
RO status code 
R2-R6 destroyed 
Implicit Outputs: 


BDBSB_FLGS - marked dirty 
IRB$L_CURBDB - updated if block boundary crossed 


IRBSL_NRP_VBN - updated if block boundary crossed 
IRB$W_NRP_OFF - updated if block boundary crossed 


Completion Codes: 
standard rms. 
Side Effects: 
If i/o stall occurs will have changed to 


running at ast level; reprobing any non-rab 
user address will be required. 


BLDREC: 
SUBL3 = R1,R7,R0 : get # bytes left in buffer 
CMPL RO,R6 3 record size? 
BLEGU 208 : branch if so 
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RMIPUTBLD SEQ. ORG. PUT TO BLOCK DEVICE 16-SEP-1984 00:53: AX/VMS Macro v04-00 Page 17 | 
yO4e 608 RMSPUT_BLK_D - ROUTINE TO PERFORM SEQ. eset 9 0:33:43 RMS.SRCJRMIPUTBLD.MAR; 1 . (10) | 
20 D MOVL R RO ; no = ust use = apt ath otee | 
g § 20$ SUBL : adjust remaining co 
61 6 mMOVC (RS), (R1) ; move sportier! iSoe to buffer 
4 20A p MOVL Inés CURBDB(R9) get current bdb |. 
A AG . 91382 zee f _VAL!BDBSM_. BRT, avaés FLosiRad; say valid & dirty 
8 1 BEQL nie : om if yes 
31 DD PUSHL R11 ; gave source addr 
53 1 MOVL #1,R3 3 lee 0 no read required 
FDD7" BSBW RM$NXTBLK1 ; call & return from next block routine 
23 8ED POPL K ; restore source addr 
0D 50 . BLBC RO,50$ ; get out on error 
Foce® BSBW RMSPROBEREAD ; reprobe user buffer 
CD 3 ee RO,BLDREC ; and go again if no error 


0 
T 
0 
" 
0 
0 
0 
i] 
0 
0 
0 
Q 
0 
0 
0 
0 
0 


| 

| 

| 

| 

; Move to buffer is complete. 
| 


340$: CMPL R7,R3 ; Did we exactly fill the buffer? 
: BEQL 60$ ; If they're oques then yes we did. 
>  } ios: MOVL R3,R1 i; next byte pointer to correct reg. 
0s 50s — ; indicate success 


:60$: MOVL #1,R3 

; BSBW RMSNXTBLK1 
RO, 50$ 

BSBW §RM$PROBEREAD 


; flag no read required 

; call & return from next block routine 
; get out on error 

; reprobe user buffer 


AFOAPOOOAOOOOOOOOOOOOOOOOSOOOOSAOOO m-4 
GOOD 0900 NINN NS NSN SNAPP AAA OOOO <= 
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RMIPUTBLD SEQ. ORG. PUT TO BLOCK DEVICE 16-SEP-1984 00:53:1 AX/VMS Macro v04-00 Page 18 
F04- 008 RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. tet 00:33:49 RMS.SRCJRMIPUTBLD.MAR; 1 ° (11) 
D 685 ;++ | 
4 ? § ; Journal record. 
dD 6 8 : Be sure the record will be written to the current record postion. The count 
D 689 ; field cannot span block boundaries. So, if the record has a byte_count prefix 
D 690 ; (VAR or VFC format), at least two bytes must remain in the buffer. If there 
D 691 ; is not enough room, don't journal the record yet. The RFA which we have in 
. $36 ; hand is not correct. 
D 694 : eeeeeereeere NOTE: When journaling is permitted for magtape devices, the 
D 695 ; teeeereeeeee next section of code will have to be modified. 
BB B38 I 
0 30 698 ZERO_RFA BR1: 
FFAC 31 i 344 BRw ZERO_RFA 
; 40 201 SEQUNL: ASSUME FABSC_VFC GT FABSC_VAR 
0 40 108 ASSUME FABSC"STM GT FABSC_VFC 
64 ADs BS 5 3 pe TSTW \ a ctttetinaie 3; Any overhead for the record 
OF 13 024 705 BEQL $ 3; No, then no byte-count prefix 
50 a 91 8 $3 re CMPB Sr O08 RERGREERIS) . ; Stream format? 
08 1€ 0249 708 BGEQU te ; Yes, stream has no prefix 
02 50 »vb1 0248 £709 CMPL RO,#2 3; Room for count? 
03 18 0 éf 710 BGEQ ; Yes, continue ; : 
FEO6§ = 31 8 ; ab BRW BUILD ; No, get next possible record position 
025 713; 
A at ; The record will be written at the current record position. 
0253 716° 
03 «2=BB $52 717 5$: PUSHR #*M<RO,R1> 3; Yes, save # bytes in blk, nxt byte ptr 
68 4 E1 bS28 at BBC ochaesy itl + ROP>, - ; Was this the TPT bit set? 
1F OD $589 720 PUSHL #RIRS_TPT : Yes, operation is $PUT w/ truncate 
06 11 0258 721 BRB 5$ ; Set up journal entry & write it out 
1 DD 0250 16 10$: PUSHL #RJR$_PUT ; Operation to be journaled is a $PUT 
e0009900 "Er 16 O25F 723 15$: JSB RMSSEQJNL ; Journal record 
0 00 65 ise MOVL RO, R2 ; Save the status 
04 CO 0268 725 ADDL2 #4, SP ; Remove argument from stack 
03 BA 0268 726 POPR #*M<RO,R1> ; Restore # bytes in blk & next byte ptr 
CD 52 § 0260 727 BLBC R2, ZERO_RFA_BR1 ; Clean up and exit on error 
FDE6 1 0270 728 BRW BUILD 3 rejoin main path 


a a SEQ. ORG. PUT TO BLOCK DEVICE Terse SE o- 1882 00:33:13 Aas: Macro V04-00 
V04- RMSPUT_BLK_DEV = ROUTINE TO PERFORM SEQ. -1984 16:23: RMS.SRCJRM1 PUTBLD .MAR: 1 
7 7 9 p++ 
4 4 3; RMSPADBLK1 -- Pad Out Buffer Routine. 
7 7 : : Inputs 
7 734 ; R1 address in buffer to start padding 
7 735 ; RO # bytes left in bloc 
7 7 § 3 RG bdb address 
4 4 : R10 ifab address 
, 738 ; Outputs: 
73 741: Block padded, if needed, and marked dirty 
7 rg 3 RO-R3 destroyed 
tebe PT 
0 7 745 RMSPADBLK1:: 
52. D4 7 reg CLRL R2 3 NUL padding for stream 
53 SO AA 90 027 74 MOVB IFB$B_RFMORG(R10) ,R3 3 get record format (set CCs) 
26 £0 0279 748 BBS #I1FBS0_ANSI_D,(R10),- 
1A 027C 749 PADANS~ 3; branch if ansi d 
0270 750 CASE TYPE=B,SRC=R 3; dispatch on rfm 
027D 751 LIMIT=#F ABSC “ODF - 
0270 P36 DISPLIST=<- 
027d 75 ADBLK,=- ; UDF (pads Like STMx) 
027D 754 PADXIT,= 3; FIX 
0270 755 PADVAR,= ; VAR 
0270 756 PADVAR,= 3; VEC 
027D 757 PADBLK,-=- 3; STM 
027D 758 PADBLK,=- 3; STMLF 
0270 759 PADBLK> ; STMCR 
as 
028F 166 ; Var or vfc record format and not ansi. 
8 8F 763 ; Just put a -1 in word pointed at by ri. 
St ee 
61 O01 AE 8 +4 766 PADVAR: MNEGW #1,(R1) ; end block flag 
029 768 ; 
029 769 ; Flag block dirty and return 
0593 Pry 
OA AG 03) «8B O29 10 PADIRT: BISB2 #BDBSM_VAL!BDBSM_DR7,BDBSB_FLGS(R4) 
05 8 89 773 PADXIT: RSB 
op ons 
97 176 > pad out the block 
F 13 97 ore PADANS: BEQL PADXIT ; UDF is not padded on tape 
52 SE of 90 99 77 Ove coN eee 3 set ansi padding 
0 ge 9D 9 PADBLK: PUSHR #*M<R4,R5> 3 Save regs 
61 50 52 6€ 99 C 029F 781 MOVCS #0, (SPS,R2,R0,(R1) : pad it 
0 BA AS 7 § PR #*M<R4,R5> 3 restore regs 
E9 11 NS 4 ? BRB PADIRT 
A9 = 785 . END 
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SEQ. ORG. PUT TO BLOCK DEVICE 
Psect synopsis 


Fewer nen owme ere e rose + 
Allocation PSECT No. Attributes 


0000000 “( 0.) 69 ( Q.) NOPIC USR CON ABS 
ee : 1¢ i.) 


PSECT name 


Q0002A 681.) ° PIC USR CON REL GBL 
0000000 ( 0. 2.) NOPIC USR CON ABS LCL NOSHR 


te wr meme nme re ewoe rn remanence + 


: Per formance indicators ! 
+ 


Phase Page faults CPU Time 


Initialization 3 00:00:00.08 00:00:01.43 
a processing 138 00:00:00.76 00:00: 204.93 
s 1 354 00:00:12.39 00:00:33.37 
Symbol table sort 0 00:00:01.68 00:00: 16 +f9 
Pass 2 136 00: 8:04 oh 00:00:07.51 
Symbol table output 14 00:00:00.10 00:00:00.10 
Psect synopsis output 3 00:00:00.03 00:00:00.06 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 681 00:00:17.85 00:00:49.79 


The working set Limit was 1500 pages. 

69827 bytes (137 pages) of virtual memory were used to buffer the intermediate c 

There were 70 pages of symbol table space allocated to hold 1277 non-local and 58° local symbols. 
85 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 


ener wena rere een weenie mama $ 


SERRE RRO ORR eee eee ee + 


Macro Library name 


-$255$DUA28: (RMS. 08 20S -MLB;1 13 
“$255$DUA $3 SYS.0B MLB; 1 3 

$255$DUA28 SYSLIBJSTARLET. MLB; 2 5 
TOTALS (all libraries) 21 


1374 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=L1IS$:RM1PUTBLD/OBJ=OBJ$:RMIPUTBLD MSRC$:RM1IPUTBLD/UPDATE=(ENH$:RM1IPUTBLD) +EXECML$/LIB+LIB$:RMS/LIB 


AX/VMS Macro V04-00 
RMS.SRCIRMIPUTBLD.MAR; 1 


LCL NOSHR NOEXE NORD NOWRT NOVEC 
NOSHR EXE RD 


NOWRT NOVEC 


WRT NOVEC 


ra m iy 


BYTE 
BYTE 
BYTE 


RM} 
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